Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_17 / pcp.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1987-04-21 | 26KB | 321 lines

10 REM *********************** 100 REM display lines 1000 REM search/replace functions 1001 ON 1002 GOTO 1004 REM search 1005 CLS 1006 IF 1007 VARNAME 1008 INC 1009 RETURN 101 PAPER 102 PRINT 1020 REM search & replace 1021 CLS 1022 LOCATE 1023 VARNAME 1024 INC 1025 RETURN 103 VARNAME 1040 REM check for auto replace 1041 IF 1042 IF 1049 RETURN 1050 REM auto replace select 1051 MENU$ 1052 MENU$ 1055 REM carefull replace select 1056 MENU$ 1057 MENU$ 1060 REM replace 1 line 1061 IF 1062 VARNAME 1063 REPEAT 1064 INC 1065 GOTO 11 REM * * 110 REM edit a line (Line length up to max string length or end of memory !) 111 VARNAME 112 VARNAME 115 LOCATE 116 IF 117 IF 12 REM * STOS Basic Pre-edit * 125 IF 13 REM * Converter Program * 130 IF 131 IF 132 IF 133 IF 134 IF 135 IF 139 IF 14 REM * Aaron Fothergill * 140 IF 15 REM * Shadow Software 89 * 150 IF 151 IF 152 LOCATE 153 INC 154 IF 155 GOTO 16 REM * For STOS User Club * 160 VARNAME 161 GOTO 17 REM * Newsletter . * 170 REM move 1 place left 171 DEC 172 IF 173 RETURN 175 REM move 1 place right 176 INC 177 IF 178 IF 179 RETURN 18 REM * * 180 REM move up a line 181 VARNAME 182 IF 183 LOCATE 185 REM move down a line 186 VARNAME 187 IF 188 LOCATE 19 REM *********************** 20 DIM 200 REM special keys 201 BELL 202 IF 203 IF 204 IF 205 IF 206 IF 21 DIM 219 RETURN 220 REM remove extra spaces from end of line 221 IF 222 RETURN 230 REM delete to end of line 231 VARNAME 232 VARNAME 235 REM insert a new line 236 VARNAME 25 VARNAME 26 VARNAME 30 MODE 35 DIM 40 VARNAME 41 VARNAME 42 MENU$ 43 UNTIL 45 DATA 46 DATA 50 VARNAME 500 REM do File menu 501 ON 502 GOTO 505 REM load .ASC file and strip off the line numbers 510 VARNAME 511 GOSUB 515 OPEN IN 520 LINE INPUT 521 IF 522 VARNAME 525 CLOSE 526 GOSUB 530 MENU 535 VARNAME 540 LOCATE 541 INC 545 VARNAME 546 IF 547 VARNAME 548 BELL 549 INC 55 ON 550 REM save .ASC file with line numbers (start on 10 , increment by 5) 551 VARNAME 552 VARNAME 553 OPEN OUT 554 VARNAME 555 IF 556 PRINT 557 INC 558 CLOSE 559 VARNAME 56 ON 560 RETURN 570 REM save .PCP file with labels 571 VARNAME 572 VARNAME 573 OPEN OUT 574 VARNAME 576 PRINT 577 INC 578 CLOSE 579 VARNAME 580 REM load .PCP file 581 VARNAME 582 GOSUB 585 OPEN IN 586 LINE INPUT 587 INC 588 CLOSE 589 VARNAME 590 REM converter menu 591 ON 592 GOTO 595 IF 596 IF 597 IF 598 RETURN 60 IF 600 VARNAME 601 VARNAME 602 PRINT 603 IF 604 IF 605 INC 606 VARNAME 61 VARNAME 610 LOCATE 611 VARNAME 612 IF 613 INC 614 IF 615 IF 616 VARNAME 62 IF 620 LOCATE 621 VARNAME 622 OPEN OUT 623 IF 624 IF 625 IF 627 IF 628 INC 629 CLOSE 63 IF 630 REM find end of label 631 WHILE 632 WHILE 639 RETURN 650 REM sort out label/procedure name 651 VARNAME 652 IF 653 IF 654 VARNAME 660 REM replace label with line number 661 IF 662 IF 663 REM check for parity of quotes (Stops renaming stuff in strings !) 664 VARNAME 665 INC 666 VARNAME 669 RETURN 670 REM add local parameters to PROCEDURE definitions 671 VARNAME 672 INC 674 VARNAME 675 INC 676 UNTIL 677 VARNAME 680 REM get parameters to pass to PROCEDURE (Via LOCAL(n)) variables 681 VARNAME 682 VARNAME 683 VARNAME 684 REPEAT 685 UNTIL 686 VARNAME 687 VARNAME 688 IF 689 INC 690 IF 691 RETURN 695 VARNAME 696 IF 697 INC 700 REM print listing 701 VARNAME 702 VARNAME 703 GOTO 710 REM load PCP Language Module 711 VARNAME 712 OPEN IN 713 LINE INPUT 714 GOTO 720 REM goodies 721 ON 722 GOTO 725 VARNAME 726 VARNAME 730 CLW 740 REM select join if..then statements 741 VARNAME 742 IF 743 VARNAME 744 RETURN 749 REM do alert box in any resolution 750 VARNAME 751 PAPER 752 RESET ZONE 753 LOCATE 754 SET ZONE 755 WHILE 756 VARNAME 759 REM colour selector 760 RESET ZONE 761 FOR 762 SET ZONE 764 WHILE 765 VARNAME 766 VARNAME 767 VARNAME 769 END 770 PRINT 771 VARNAME 772 INC 773 REM stick lines together 775 VARNAME 776 IF 777 IF 778 INC 800 VARNAME 801 VARNAME 802 CLW 805 VARNAME 806 VARNAME 807 INC 808 RETURN 810 VARNAME 811 VARNAME 812 VARNAME 813 IF 814 INC 815 INC 816 VARNAME 817 VARNAME 818 UNTIL 819 VARNAME 820 VARNAME 821 REPEAT 822 IF 823 IF 824 IF 825 IF 826 IF 827 INC 828 VARNAME 829 RETURN 830 VARNAME 831 REPEAT 832 IF 833 IF 834 IF 835 IF 836 INC 837 VARNAME 99 GOTO 999 RETURN